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: Version: *v04-000' 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


:* THIS SOFTWARE IS A gt oe UNDER A LICENSE AND MAY BE USED AND conics 
: ONL ACCORDANCE W THE TERMS OF SUCH LICEN AND WITH THE 
3* INCLUSION OF THE ABOVE Spd ha NOTICE. THIS SOFTWARE OR ANY OTHER 
;* COPIES THEREOF MAY NOT BE P OVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eeRPORAT ion.” NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONS BY 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH 
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S$ NOT SUPPLIED BY DIGITAL. 
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Facility: Executive , Hardware fault handling 
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Abstract: POWERFAIL contains the code necessary to handle a 2 pouee ‘eure 
interrupt on the secondary processor. The secendery 19 
lk. state in which it restart with the normal init eh tast tes 
code. 

Environment: MODE=Kernel , IPL=31 

Author: KATHLEEN D. MORSE, Creation date: 08-JUN-1981 

Modified by: 


v03-001 nese thleen D. Mor 3-Aug-1983 
Change use of PRS. TODR to PR7 0s. TODR. 
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Include files: 


MOON NEW OOD NA UNE WIND 0 OD NAME WIN OD NA UNE WIN CO OONIO UE WIN SNE 


PUPS BB BIEL BFF PANINI ANI GEPODIPUNIPININDNPNIDYD - OO ss Ps Oe es 
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-SEP-1 MP. SRCIMPPWREAIL.MAR; 1 

5 

§ ; Equated Symbols: 

8° SIPLDEF : Interrupt priority Level definitions 
0 .] SLCKDEF 3; Interlock bit definitions 
0 60 SMPSDEF ; Secondary processor states 
00 61 SPCBDEF ; Process control block definitions 
0000 ¢ SPHODEF 3; Process header block definitons 
0000 6 SPR780DEF ; 780-specific processor register defs 
44 ¢: SPSLDEF ; Processor status longword definitions 

00000000 66 -PSECT SAEXENONPAGED,LONG ; Interrupt routines must be 

0000 67 ; longword aligned 
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~SBTTL EXESPCWERFAIL = POWER FAIL INTERRUPT SERVICE ROUTINE 


Functional Description: 


XESPOWERFAIL is entered with IPL=31 as a result of a power fail 
nterrupt. The objective is to fold up the current process and 
get into a state from which the secondary can be re-initialized 
as quickly as possible. 


The eopeneers must be in the INIT state in order to re-initalize. 
The primary processor must have exclusive rights over setting 
the eoeeneees into this state, to avoid various race conditions. 
Thus, the scheduling code must check the powerfail flag and 
force the primary into a state so that it can restart. 


There are two possible ways in which the powerfail interrupt 
can work. Once the interrupt occurs, it can either be dismi 
or it can remain active (i.e., if an REI is issued, it will 

re-occur). This code will handle both cases. However, it 
appears that the 11/780 hardware is the former case. 


ssed 


When a powerfail occurs, the Secondary may be in any of 

its possible states: INIT, STOP, BUSY, EXEC, IDLE, or DROP. 
ie Le Syed describes the flow of execution for the secondary 
nN each case. 


INIT = Go to self-branch in powerfail code. 
In this case, the primary will not need to 
set the state of the secondary to INIT. 


STOP = Go to self-branch in powerfail code. 
In this case, the primary must not set 
the state of the secondary to INIT as the 
secondary had been stopped with an explicit 
user command. 


(Restart will make secondary do a) es in 
EXESMPSTART, waiting to be set to INIT state.) 


BUSY - Set IPL of PSL on stack to 31 and REI. This will 
return the secondary to the scheduling code which 
will make him do a LDPCTX and go into EXEC state. 
When the REI is done Crotlowing the LDPCTX), the 
software timer interrupt will occur and the 
secondary will fold up the presess and execute 
the busy-loop in the scheduling code. 


IDLE - Set IPL of PSL on stack to 31 and REI. This will 
return the socongery to the scheduling code where 
it will Loop until the restart occurs. The priaery 
will notice the powerfail flag when it next tries to 
schedule the secondary and set him to INIT state. 


(The secondary | or ony not busy-loop in 
EXESMPSTART when the restart occurs, depending 
upon when the primary sets him to the INIT state.) 


PIPIPIMINIS 9 9 9 9 | MPQOODOODODOOOOO 0000000000909 0909 09 09 09 090909 INI NI NII NINO 
MPU SO OONAU EWN 9 OD NAW WIN $9 OO NAME WO OODNAUE WO OONOUS UN 00 
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DROP = Set IPL of PSL on stack to 31 and REI. This will 
cause the primary to take back the process, and the 
secondary to return to the schedul ing code, to loop 
until the restart occurs. If the pr nore doesn't see 
the powerfail ey then the secondary will go BUSY 
and then EXEC, and then get the software timer 
interrupt after the REI (following the peed, 4 The 
secondary will fold up the process and loop in the 
Scheduling code until restart occurs. 


EXEC - If current mode of PSL on stack is Kernel, then 
set IPL of PSL on stack to and REI. This will 
return the secondary to the gert cular or 
code that he had been executing (MA780, scheduling, 
hardware clock, etc.). When that particular interrupt 
code finishes, the software timer interrupt will occur. 
Now the secondary will fold up the plegpet an 
wait in the busy-loop in the scheduling code for 
the restart. 


A 


MPPWRFAIL = POWER FAI 
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EXESPOWE 


zw 


SSSSSSSsSsssssssss 
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If current mode of PSL on stack is NOT Kernel, then 
the secondary folds up the process and interrupts the 
primary to take back the process. The secondary then 
executes the self-branch in the powerfail code. 
Environment: 
Executed by secondary processor. 
Calling Sequence: 
Powerfail interrupt through Vector at offset 12 in the SCB. 
Input Parameters: 


OO(SP) = PC at time of powerfail interrupt 
04(SP) = PSL at time of powerfail interrupt 


Implicit Inputs: 
MPSSGL_STATE - state of secondary processor 


SOOOSCSCSOSOOSOOSOOOSOSOSOSOOSOOSOSOSOSOSOSOSOSOSOoOSS 
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»ALIGN LONG ; Exception and Interrupt routines must 
; be longword aligned 
hmateameat 4. 3 
#PR780$_TODR,W*MPSSGL_PFAILTIM ; Indicate powerfail occurred 
1F IDN<#PR?80$_TODRS, <#PR780$_TODR> 
OF 88 PUSHR #*M<RO,RT,R2,R5> 
50 90000000" Gt D 30000$: mova GrEXESGO_SVSTIE.RO 
52 ened $f 7D MOVa G*EXESGQ_SYSTIME,R 
5 0 oD1 1 CMPL RO,R 
gp 12 001 BNEQ 306008 
53 1 D1 1 CMPL R1,R 
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eB 12 18 BNEQ 30000$ 
52 0000 zoe" ae. 1A MOVa G“*EXE$GQ_TODCBASE ,R2 
§ C 1 SUBL Rg -R 
1 p 4 SBWwC R5,R 
51 50 50 59003 p40 f i ; EDLV #<100*1900%2>, RO,RO,R1 
51 Q0000000'GF ¢ 4 ADDL Genes TODR,R1 
18 «651—=ODA 3 MTPR R1,#PR780$_TOOR 
OF BA 45 POAOc #*M<RO,R1,R2,R3> 
00000001 4 -MDELETE MFPR 
0000' CF 18 dB rt MFPR sarees. TODR,W*MPSSGL_PFAILTIM 
9 r eMCALL 
Soe8 176 NLIST ME 
045 17 SORTINT #IPLS_TIMER : cee rescheduling to occur after 
048 178 2 foverta ail logic occurs 
04 17 ASSUME MPSSK_INITSTATE GT MPSSK. EKEESTA 
004 180 ASSUME MPSSK-STOPSTATE GT MPS$K EXECSTATE 
00 0000'CF 00 £6 004 181 BBSSI #LCK$V_INTERLOCK,W*MPSSGC INTERLOCK, 10$ ; Flush cache queue 
04 000'CF D1 poet 1 § 10$: CMPL W*MPSSGL_ STATE ,AMPSS$K EXECS STATE Has a Lop CTX been done? 
11 14 0053 18 BGTR 40$ : B. if §1oP or INIT state 
11 iF; 0055 184 BNEQ 60$ r if no LDPCTX has been done 
07 AE 03 93 0057 185 BITB  $#<PSLSM_CURMOD@-24>, sei ° "vee hornet mode code interrupted? 
0B 13 OOSB 1 § BEQL 60$ ; br 13° vx can't fold up process now 
07 O05D 18 SVPCTX the processs 
QOOO'CF 02 be B06 188 MOVL #MPS$K poser ate. Ww°MPSSGL_ STATE! Seaeare to reschedule 
FFOA® 30 006 189 BSBW W*MPSSINTPR : ae primary take the process back 
FE 11 0066 190 40$: BRB 40$ : t for power off halt 
Bpe8 191 3 Thi s loop is to avoid halting 
068 13 : and confusing the console 
0068 19 ; by inadvertently triggering an 
0068 194 3; automatic restart too soon 
0068 195 60$: SETIPL #IPL$_POWER 3; Prevent reserved operand fault on REI 
06 AE 1F 88 0068 196 BISB #<PSLSM_IPL@-16>,6(SP) ; Force saved IPL to 31 
02 O06F 19 REI 
0070 198 
0070 199 .END : 
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ESGL_TODR ceeeeeee x 
EXESGQ_SYSTIME eeeeeeee 8 8=6X 03 
EXESGQ_ TODCBASE eeeeeeee 6X 
L$_POWE = 68 Oot 
PLS$_TIMER = 0000000 
LCKSV_INTERLOCK = 0000000 
PS$GC_INTERLOCK terenene =X : 
MPSSGL_PFAILTIM eeeeeeeer X 0 
$GL_STATE eenereee = =X = 
MPSSINTPRIM eeeeeree = = X 8 0 
MPSER-EXECSTATE ; 09009006 
pessi-sTorsTare : HBS Sih 
= 
MPSSPOWERFAIL sittin RG 02 
PRS_IPL eeeeeeee x 85 
Sl keeeeene x 0 
PR780$_TODR = sted 
SLSM_CURMOD = 03000000 
PSLSM_IPL = 001F0000 
poesaacemrasccanssans ca 
! Psect synopsis ! 
boom ocenaecr eons eeee ea 
PSECT name Allocation PSECT No. Attributes 
- ABS. 00000000 0.) 0O¢ OO.) NOPIC US 
s$ 00000000 0.) 0O1¢ #1.) \NOPIC US 
SAE XENONPAGED 00000070 ¢ 112.) 02 ¢ 2.) NOPIC US 
doiniabnieshaiiidhiaihaseaniseiepneieaninnile 
! Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 39 00:00:00.06 00:00:00.51 
C processing 151 0:00: 2-58 BR 8000-3 
Pass 198 0:00:04. B08 he Re 
Symbol table sort 0 0:00:00.49 0: Ht 6 
Pass 58 3: :00.97 8708's 94 
Symbol table output 4 :00:00. ; Q: 338 04 
Psect synopsis output 1 3: :00. 333 00.04 
Cross-reference output 9 :00:00. 4 :00:00.00 
Assembler run totals 45 0:00:06. 0:00:25.87 


The york ing set Limit was 1350 pages. 

21125 bytes (42 pages) of virtual memory were used to buffer_the intermed 
There were 20 pages of symbol table space allocated to hold 350 non-local 
$6 sovrce lines were read in Pass 1, prodys ing 13 object records in Pass 
8 pages of virtual memory were used to define 17 macros. 


Sr$EP=198¢ 08:07:42 EMP-SRCIMPPURFAIL-MAR;1 = 88 (fy 


R CON ABS LCL 
R CON ABS LCL 
R CON REL LCL 


NOSHR NOEXE NORD NOWRT NOVEC BYTE 
NOSHR EXE RD WRT NOVEC BYTE 
NOSHR EXE RD WRT NOVEC LONG 


jiate code. 
and 4 local symbols. 
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pre wnmmomnre ween own eacmrecawmocea$ 


! Macro Library statistics ! 


presse nanan wm morcn amma maneem >} 


Macro Library name Macros defined 
5SSSDUA ft ye rw 1 
SSSDUA SYS.08 MLB; 1 5 
SSSDUA :ESYSLIB STARLET MLB;2 g 
r32538 (all Libraries) 1 


495 GETS were required to define 15 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:MPPWRFAIL/OBJ=0BJ$:MPPWRFAIL MSRC$:MPPREF IX/UPDATE=(ENHS:MPPREF IX) +MSRC$:MPPWRFAIL/UPDATE=(ENHS$:MPPWRFE AIL) +EXECMLS/LI 
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